#!/usr/bin/env perl

print "cko_buff_translate={}\n";

$s='';

while($x=<>) {
   chomp($x);
   $x=~/^(.+),(.+)$/;
   print 'cko_buff_translate["'.$1.'"]="'.$2.'"'."\n"
}

